home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / SimpleWrite II 1.0.4.sit / SimpleWrite II 1.0.4 / SimpleWrite II / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-08-27  |  19KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3011</cardID>
  8.     <listID>3816</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>===============================The script of SimpleWrite IICreated by ﾋ1996 Akio Tsunekawa===============================-- Stack Scripts --on openStackglobal SWIIstartup,QuitCheck,FRM-- ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ⑥ﾃ嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡ﾃε荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｧsﾃ‡ﾂ｢ﾃ②ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ï｣ｿﾃｧﾃ湘ｪﾂｨﾃ‡竏妥‡ﾃˆset cursor to watchcheckErrorscheckMemorycheckVersionscreateMenuif "2.3" > the version then set enabled of menuItem "ﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏ž..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to falseput empty into QuitCheckput empty into FRMif SWIIstartup is empty then answer "    □ SimpleWrite II   < The text editor stack >" & return & return & ﾂｬ"    Created by ﾋ1996 AkioTsunekawa" & return & "    All rights reserved worldwide." & return & return & ﾂｬ"    This stack is freeware."put "notEmpty!!!" into SWIIstartupif the rect of fld "Text" is "22,14,512,342"then set checkMark of menuItem "ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑥ﾃｧsﾃｮ窶佚ｧﾃ愿‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to trueset cursor to watchend openStackon closeStack-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾃ暗‡竏†ﾃ‡ﾂｴﾃ‡ﾃεｨﾃ„ﾃｮﾄｱﾃ⑥ﾃｯKﾃｳvﾃ‡ﾂｻﾃ‡ﾃﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃ†ﾃｳﾃｹﾃ‡竏妥‡ﾃˆglobal EditSaveFilename,QuitChecklock screendeleteRMif QuitCheck is not true thenresetMenusif fld "Text" is not empty thenbeepanswer "ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃεｯ竏づｨﾃｫﾃ‡ï｣ｿﾃ ﾃ催ｩﾃｻﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡ﾂｴﾃ‡窶ｹﾃ‡竏妥‡ﾂｩ?" with "ﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢","ﾃｯ竄ｬﾃｫ竏‚"if it is not "ﾃｯ竄ｬﾃｫ竏‚" then put empty into fld "Text"if it is not "ﾃｯ竄ｬﾃｫ竏‚" then put empty into EditSaveFilenameend ifset cursor to watchcompactingStackif the enabled of menuItem "Close Stack" of menu "File" is true thenset name of this stack to "SimpleWrite"lock messagesdoMenu "Close Stack"unlock messagesexit closeStackend if-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺﾃ‡ï｣ｿﾃｯﾅ禿ｧXﾃ‡竏妥‡ﾃ暗‡竏†ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃε 竅„ﾃｬﾃ†ﾃ‡邃｢ﾃｩ~ﾃ‡窶ｹﾃ‡ﾂ｡ﾃ‡ﾆ津‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｧﾃ‡ﾎｩﾃ‡ïｬづ②-- ﾃｧsﾃ‡ﾂｴﾃｪﾃ甘‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺﾃ‡ï｣ｿﾃｯ窶佚‡竏妥､ﾃｷﾃｪﾃｮﾃ…udestinationﾃ…vﾃ‡ï｣ｿﾃｩgﾃ‡ﾂ｡ﾃ‡ﾆ津 竅„ﾃｬﾃ†ﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂｮﾃ‡竏‘setname the destinationend ifend closeStackon resumeStack-- ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ瓜ﾃ叡ﾃ影ﾃ隠ﾃ嘉ｬﾃ碓set enabled of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to trueset cmdChar of menuItem "ﾃ ﾃ崚ｧﾂｸ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "P"set cmdChar of menuItem "ﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏ž..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "E"set cmdChar of menuItem "Scroll" of menu "Go" to emptyset cmdChar of menuItem "Print Card" of menu "File" to emptyset cmdChar of menuItem "Find..." of menu "Go" to emptyset cmdChar of menuItem "Recent" of menu "Go" to emptyset cmdChar of menuItem "Open Stack..." of menu "File" to emptyset cmdChar of menuItem "ﾃ･ﾃｼﾃｧﾄｱ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "F"set cmdChar of menuItem "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "R"set cmdChar of menuItem "ﾃｯ竄ｬﾃｫ竏‚..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "S"set cmdChar of menuItem "ﾃ､Jﾃ‡竕 ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "O"end resumeStackon suspendStack-- ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ﾃε嘉､ﾃ瓜ﾃ叡ﾃ曳ﾃ⑴ﾃｯsﾃｩgﾃｳpﾃ｢ﾂｪset enabled of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to falseset cmdChar of menuItem "Recent" of menu "Go" to "R"set cmdChar of menuItem "Scroll" of menu "Go" to "E"set cmdChar of menuItem "Find..." of menu "Go" to "F"set cmdChar of menuItem "Open Stack..." of menu "File" to "O"set cmdChar of menuItem "Print Card" of menu "File" to "P"end suspendStackon openCardif fld "Text" is empty then set name of this card to empty-- ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡邃｢ﾃ｣ﾃ崚‡ﾃｦﾃ‡ﾂ｡ﾃ‡ﾎｩﾃ‡ﾃﾃ雨ﾃ…[ﾃ栄ﾃｱﾂｺﾃ⑿ﾃ･窶榲‡ﾃε運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ頴ﾃ…[ﾃ‡ﾃεｱﾂｺﾃｫOﾃ⒀ﾃ‡ï｣ｿﾃ｣ﾃ崚‡窶ｦﾃ‡竏妥‡ﾃˆif the number of chars of the short name of this card > 15 then-- ﾃ‡窶｡ﾃ‡ﾂｵﾃ雨ﾃ…[ﾃ栄ﾃｱﾂｺﾃ‡ﾃεｯ竏づｩﾃｶﾃｪﾃｮﾃ‡邃｢15ﾃ ﾂｻﾃｨ窶榲‡ﾂｻﾃ‡ﾃﾃ⑿ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｱﾂｺﾃｫOﾃ‡ﾃεｭ竏妥‡竕･ﾃ‡窶ｦﾃｪﾃ淌･ﾂｿﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗‡ﾎｩﾃ‡ïｬづ⒀ﾃｭZﾃ‡竕 ﾃ‡竏妥‡ﾃˆput char 1 to 13 of the short name of this card & "..." into xxxxxelseput empty into xxxxxend ifif char 1 to 4 of the short name of this card is "card" then-- ﾃ雨ﾃ…[ﾃ栄ﾃｱﾂｺﾃ‡邃｢ﾃ｣ﾃ崚‡ﾃｦﾃ‡ﾂ｡ﾃ‡ﾎｩﾃ‡ﾃﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ頴ﾃ…[ﾃ⑿ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ⒀ﾃ‡ﾃεｱﾂｺﾃｫOﾃ‡ï｣ｿﾃ…uﾃｱﾂｺﾃｨﾃεｱﾂ｢ﾃｪ窶ｺﾃｭﾃ凝…vﾃ‡窶ｦﾃ‡竏妥‡ﾃˆset name of this stack to " ﾃｱﾂｺﾃｨﾃεｱﾂ｢ﾃｪ窶ｺﾃｭﾃ‹ "else-- SimpleWriteﾃ‡ﾃε液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ‡窶ｦﾃ‡窶 ﾃ‡ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃ､Jﾃ‡竕 ﾃ‡竏†ﾃ‡ﾂｴﾃ②ﾃｬﾃ佚‡竏づｱﾂｺﾃｫOﾃ‡窶ｦﾃ‡ﾂｵﾃ‡ﾃ甘‡ﾂｧﾃ‡竏†ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃ暗‡ﾃε‡竕暗②-- ﾃｧ竕暗ｨﾃ｢ﾃ‡竏†ﾃｧ竕暗･窶榲‡窶ｦﾃｮﾂｺﾃ､pﾃ厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃｬﾂｸﾃ‡ﾃ催‡ﾃˆif xxxxx is empty thenset name of this stack to empty && (the short name of this card) && emptyelse-- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡邃｢ﾃｭZﾃ‡竕 ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾎｩﾃ‡ﾃﾃ②ﾃｯﾅ禿ｪﾃｮﾃ…uxxxxxﾃ…vﾃ‡ï｣ｿﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺﾃ‡窶ｦﾃ‡竏妥‡ﾃˆset name of this stack to empty && xxxxx && emptyend ifend ifselect char (the number of chars of fld "Text" + 1) of fld "Text"send mouseWithIn to fld "Text"select char (the number of chars of fld "Text" + 1) of fld "Text"-- ﾃｯ竏づｩﾃｶﾃｪﾃｮ+ﾃ㈲ﾃｯ竏づｩﾃｶﾃｱ竅„ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｧ竕暗･窶榲‡窶ｦﾃ鵜ﾃ嘉嘉嘉･ﾃ叡ﾃ曳ﾃ‡邃｢ﾃ 竅„ﾃ‡ﾃˆend openCard-- Menu Scripts --on resetMenus-- ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｱﾂｺﾃ‡竏†ﾃ鰻ﾃ嘉｡ﾃ…[ﾃ曳ﾃ雨ﾃ叡ﾃ曳ﾃ鵜ﾃ…[ﾃ‡ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖ｨﾃ崚ｫ窶佚‡窶ｦﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘-- ﾃ…ureset menuBarﾃ…vﾃ‡竕暗‡ﾃ陛ｩﾃｻﾃ､窶佚‡邃｢ﾃ‡ﾂｩﾃ‡ﾂｩﾃ‡ﾃ凝‡竏妥‡ﾂｨﾃ‡ﾃ暗‡ﾎｩﾃ‡ïｬづ②ﾃｩﾃ凝ｬﾃ†ﾃ‡竕暗ｧsﾃ‡ﾂｧdelete menu "竏ｫﾅ凪\ｺﾆ抵ｬ"set cmdChar of menuItem "Recent" of menu "Go" to "R"set cmdChar of menuItem "Scroll" of menu "Go" to "E"set cmdChar of menuItem "Find..." of menu "Go" to "F"set cmdChar of menuItem "Open Stack..." of menu "File" to "O"set cmdChar of menuItem "Print Card" of menu "File" to "P"end resetMenuson createMenu-- ﾃ‡ﾂｱﾃ‡ﾂｱﾃ‡竕暗‡ﾃ陛②ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ﾃεｧﾃ湘ｪﾂｨﾃ⑥ﾃ鰻ﾃ嘉｡ﾃ…[ﾃ曳ﾃ雨ﾃ叡ﾃ曳ﾃ鵜ﾃ…[ﾃ､ﾃ妥‡ﾃ凝ｬﾃｱﾃ‡ﾆ津ｬﾃｴﾃ‡ï｣ｿﾃｧsﾃ‡ﾂｧcreate menu "竏ｫﾅ凪\ｺﾆ抵ｬ"put "ﾃ･ﾃｼﾃｧﾄｱ...,ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶ...,-,ﾃｯ竄ｬﾃｫ竏‚...,ﾃ､Jﾃ‡竕 ...,ﾃ ﾃ崚ｧﾂｸ...,PICTﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃ､Jﾃ‡竕 ...,-,ﾃｬﾋ凖ｯtﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ•,ﾃｩﾃｻﾃｧﾃｨﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ•,ﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏ž...,-,ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶ,ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑥ﾃｧsﾃｮ窶佚ｧﾃ愿‡ﾃεｯ¥ﾃｩﾂｶ" into menu "竏ｫﾅ凪\ｺﾆ抵ｬ" ﾂｬwith menuMsg "FI,PRE,,SF,OF,Printing,openPICT,,TD,TT,Speaking,,showRM,showRulerLines"set cmdChar of menuItem "ﾃ ﾃ崚ｧﾂｸ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "P"set cmdChar of menuItem "ﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏ž..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "E"set cmdChar of menuItem "Scroll" of menu "Go" to emptyset cmdChar of menuItem "Print Card" of menu "File" to emptyset cmdChar of menuItem "Find..." of menu "Go" to emptyset cmdChar of menuItem "Recent" of menu "Go" to emptyset cmdChar of menuItem "Open Stack..." of menu "File" to emptyset cmdChar of menuItem "ﾃ･ﾃｼﾃｧﾄｱ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "F"set cmdChar of menuItem "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "R"set cmdChar of menuItem "ﾃｯ竄ｬﾃｫ竏‚..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "S"set cmdChar of menuItem "ﾃ､Jﾃ‡竕 ..." of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to "O"end createMenuon showRM-- ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ï｣ｿﾃｯ¥ﾃｩﾂｶﾃ‡ﾂｵﾃ‡ﾎｩﾃ‡ﾃ凝ｨﾂ｡ﾃ‡ﾂｵﾃ‡ﾎｩﾃ‡ﾃ凝‡竏妥‡ﾃ暗穎ﾃ嘉ｬﾃ栄ﾃ嘉｢global FRMset cursor to watchlock screenset checkMark of menuItem "ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to not the checkMark of menuItem "ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ"if the checkMark of menuItem "ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" is true thenaddRMput true into FRMelsedeleteRMput empty into FRMend ifunlock screenend showRMon addRM-- ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶﾃ⑿ﾃｭﾂｫﾃ｢ﾂ｡ﾃ⒀ﾃ‡ï｣ｿﾃｩﾂｿﾃｩ{ﾃ‡竏妥‡ﾃˆrepeat with f = 1 to the number of lines of fld "Text"put "ﾃ…ﾋœ" after line f of fld "Text"end repeatif last char of fld "Text" is "ﾃ…ﾋœ" then delete last char of fld "Text"end addRMon deleteRM-- ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｮﾃ津ｯ¥ﾃｩﾂｶﾃ⑿ﾃｧﾃ古ｨﾃｺﾃ⒀ﾃ‡ï｣ｿﾃｩﾂｿﾃｩ{ﾃ‡竏妥‡ﾃˆrepeat with l = 1 to the number of lines of fld "Text"if last char of line l of fld "Text" is "ﾃ…ﾋœ" then delete last char of line l of fld "Text"end repeatend deleteRMon showRulerLinesset checkMark of menuItem "ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑥ﾃｧsﾃｮ窶佚ｧﾃ愿‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" to not the checkMark of menuItem "ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑥ﾃｧsﾃｮ窶佚ｧﾃ愿‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ"if the checkMark of menuItem "ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑥ﾃｧsﾃｮ窶佚ｧﾃ愿‡ﾃεｯ¥ﾃｩﾂｶ" of menu "竏ｫﾅ凪\ｺﾆ抵ｬ" is true thenset rect of fld "Text" to "22,14,512,342"elseset rect of fld "Text" to "0,0,512,342"end ifend showRulerLineson PRE-- ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃ‡ﾃ暗穎ﾃ嘉ｬﾃ栄ﾃ嘉｢global FindText,Replacementif the selectedText is not empty then get the selectedText else get FindTextask "ﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津⑦" with itif it is empty then exit to HyperCard else put it into FindTextif offset(FindText,fld "Text") is 0 thenbeepanswer "ﾃ⑽" & FindText & "ﾃ⑾ﾃ‡ﾃ陛ｯ竏づｨﾃｫﾃ‡窶ｦﾃ､窶ｹﾃ‡窶ｹﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"exit to HyperCardend ifask "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃ‡ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津⑦" with Replacementif it is empty then exit to HyperCard else put it into Replacementanswer "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃ⑦" & FindText & return & "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃｯ竏づｩﾃｶﾃ⑦" ﾂｬ& Replacement & return & return & "ﾃ‡ﾂｱﾃ‡ﾃεｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃ‡竏妥‡笳甘‡ﾆ津ｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","OK"if it is not "OK" then exit to HyperCard else setCursorToBusy-- ﾃｫﾂｨﾃｬxﾃ‡ï｣ｿﾃ･ﾂｸﾃｨ窶榲‡竏妥‡ﾃ暗‡ﾎｩﾃ‡ïｬづ②ﾃ｢ﾃ甘ｱﾂ ﾃｧXﾃｪVﾃ‡ï｣ｿﾃ ﾃ催ｩﾃｻﾃｬIﾃ‡窶ｦﾃｭ窶堙ｩﾂｬlock screenput (the number of chars of FindText - 1) into theEndrepeatif offset(FindText,fld "Text") is 0 or the mouseClick then exit repeatsetCursorToBusyput offset(FindText,fld "Text") into theStartput Replacement into char theStart to (theStart + theEnd) of fld "Text"end repeatend PREon TT-- ﾃｬﾂｸﾃｳﾃ陛榎ﾃ韻ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｬ窶｡ﾃ‡窶ｦﾃ‡窶 ﾃ‡ﾃ催‡ﾅ津②ﾃｩﾃｻﾃ､窶佚‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡竏妥‡ﾃˆif the selectedChunk is not empty then type the long time else beepend TTon TD-- ﾃｬﾂｸﾃｳﾃ陛榎ﾃ韻ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｬ窶｡ﾃ‡窶ｦﾃ‡窶 ﾃ‡ﾃ催‡ﾅ津②ﾃｬﾋ凖ｯtﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡竏妥‡ﾃˆif the selectedChunk is not empty then type the long date else beepend TDon OF-- ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ⑴ﾃ嘉､ﾃ…[ﾃ栄ﾃ迂ﾃ嘉ｬﾃ嘉､ﾃ…[ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢global EditSaveFilename,FRManswer file "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ⑦" of type "TEXT","ttro"if it is empty then exit to HyperCard else put it into Filenameset cursor to watchput Filename into EditSaveFilenameget ReadFile(Filename)if the number of chars of it > 20000 thenbeepanswer "ﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡邃｢ﾃｫﾎｩﾃ‡竏妥‡ﾂｨﾃ‡ﾃ暗‡ﾎｩﾃ‡ïｬづ②ﾃ､Jﾃ‡ﾃ佚‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③"exit to HyperCardend iflock screenput it into fld "Text"if FRM is true then addRMset itemDelimiter to ":"-- ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ﾃ津‡ﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ï｣ｿﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗ｨﾃ„ﾃｮﾄｱﾃ‡ï｣ｿﾃ‡竏妥‡ﾃˆset name of this card to last item of Filenameunlock screenenterInFieldopenCardend OFon Speakingget the voices-- ﾃｩgﾃｳpﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗｢ﾏ\ﾃｪ竏ｫﾃ‡ï｣ｿﾃｯ窶佚‡竏妥､ﾃｷﾃｪﾃｮﾃ…uvoicesﾃ…vﾃ‡邃｢ﾃ｣ﾃ崚‡ï｣ｿﾃｯ窶佚‡竏妥‡竏†ﾃ‡ﾂ｢ﾃ‡ﾂｧﾃ‡ﾂｱﾃ‡竏†ﾃ‡ﾃ陛②-- ﾃ‡竏妥‡ﾂｻﾃ‡ﾃ古‡ﾃｸﾃ…uSpeech Managerﾃ…vﾃ｣@ﾃｮ¥ﾃ､gﾃｭﾂ｣ﾃ‡邃｢ﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾂｱﾃ‡竏†ﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃˆif it is empty thenbeepanswer "ﾃ…uSpeech Managerﾃ…vﾃ｣@ﾃｮ¥ﾃ､gﾃｭﾂ｣ﾃ‡邃｢ﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾎｩﾃ‡ïｬづ②ﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏榲‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津⑩"exit to HyperCardend ifanswer "ﾃｯ竏づｨﾃｫﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｨ窶榲‡竏榲‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨ ﾃ‡ﾎｩﾃ‡ﾃｦﾃ‡ﾂｵﾃ②ﾃ｢pﾃｯ竏づ‡ﾃε‡窶ｺﾃ‡竕暗‡竏妥③" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","OK"if it is not "OK" then exit to HyperCardset cursor to watchrepeat with x = 1 to (the number of lines of fld "Text")select line x of fld "Text"speak line x of fld "Text"wait until the speech is "Done"end repeatstop speechend Speakingon FIglobal FindTextif the selectedText is not empty then get the selectedText else get FindTextask "ﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津⑦" with itif it is empty then exit to HyperCardput it into FindTextselect emptytype "Find string" && quote &FindText &quote & returnif the result is not empty then answer "ﾃ⑽" &FindText& "ﾃ⑾ﾃ‡ﾃ陛･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③"else answer "ﾃ嘉､ﾃ運ﾃ…[ﾃ嘉ｬﾃ鵜ﾃ…[ﾃ‡竕暗ｩﾃｼﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡竏妥③"end FIon SF-- ﾃｧ竕暗･窶榲‡窶ｦﾃ､Jﾃ‡ﾂ｢ﾃ‡ﾎｩﾃ⑴ﾃｯ竄ｬﾃｫ竏づ‡邃｢ﾃｫ竏づｧ窶ｺﾃ‡竏妥‡ﾃ暗‡ﾂｻﾃ‡ﾃﾃ‡ﾅ津②ﾃｧXﾃｪVﾃ‡竏妥‡ﾃ暗‡ﾂｩﾃ‡ï｣ｿﾃｪqﾃ‡ﾃ\ﾃ‡ﾃˆglobal EditSaveFilename,FRMlock screenset itemDelimiter to ":"if there is a file EditSaveFilename thenget last item of EditSaveFilenameanswer "ﾃｨﾃｫﾃｳïｬﾃ⑦ﾃ⑽" & it & "ﾃ⑾" & return & "ﾃｯ竄ｬﾃｫ竏づｯﾋ堙ｱ@ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","ﾃｯﾂ ﾃｱﾂｺﾃｯ竄ｬﾃｫ竏‚...","ﾃｧXﾃｪV"if it is "ﾃｧXﾃｪV" thenset cursor to watchif FRM is true then deleteRMWriteFile fld "Text",EditSaveFilenameif FRM is true then addRMset itemDelimiter to ":"set name of this card to last item of EditSaveFilenameexit SFelseif it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit to HyperCardend ifend ifget last item of EditSaveFilenameask file "ﾃｪVﾃ｣Kﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ⑦" with itif it is empty then exit to HyperCard else put it into EditSaveFilenameset cursor to watchput it into FNif FRM is true then deleteRMWriteFile fld "Text",FNif FRM is true then addRMset itemDelimiter to ":"set name of this card to last item of FNunlock screenopenCardend SFon openPICT-- PICTﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃ､Jﾃ‡竕 ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢answer file "ﾃ､Jﾃ‡竕 PICTﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃ‡ﾃ津‡竕暗‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ⑦" of type "PICT"if it is empty then exit to HyperCard else picture it,file,zoom,,0end openPICTon PrintingdoMenu "Page Setup..."answer "ﾃ ﾃ崚ｧﾂｸﾃ‡ï｣ｿﾃ､Jﾃｩnﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩ?" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","OK"if it is "OK" then print fld "Text"end Printingon doMenu sel,sm-- SimpleWriteﾃ‡邃｢ﾃ､Jﾃ‡ﾂ｢ﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗ｨﾃ崚ｫ窶佚‡竕ˆHyperCardﾃ‡ï｣ｿﾃｨIﾃｳﾏ\ﾃ‡竏妥‡ﾃ暗ｩﾃｻﾃ②-- ﾃ…ucloseStackﾃ…vﾃ‡ï｣ｿﾃ･ﾆ津‡窶氾ｨoﾃ‡竏妥‡ﾃε‡ﾃ陛ｩﾃｻﾃ､窶佚‡邃｢ﾃ‡ﾂｩﾃ‡ﾂｩﾃ‡ﾃ暗‡ﾃε‡竕暗②ﾃｱﾂｺﾃｫOﾃ‡ï｣ｿﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾆ’-- ﾃ…ucloseStackﾃ…vﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ‡ï｣ｿﾃ･ﾆ津‡窶氾ｨoﾃ‡竕･ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡竕暗ｨIﾃｳﾏ\ﾃ‡竏妥‡ﾃˆif sel is "Quit HyperCard" thenset cursor to watchlock screenif fld "Text" is not empty thenbeepanswer "ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃεｯ竏づｨﾃｫﾃ‡ï｣ｿﾃ ﾃ催ｩﾃｻﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡ﾂｴﾃ‡窶ｹﾃ‡竏妥‡ﾂｩ?" with "ﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢","ﾃｯ竄ｬﾃｫ竏‚"if it is not "ﾃｯ竄ｬﾃｫ竏‚" then put empty into fld "Text"end ifset name of this stack to "SimpleWrite II"lock messagesend ifif sm is "Font" and the optionKey is down then setTextFont selif sm is "Style" and sel is a number and the optionKey is down then setTextSize selpass doMenuend doMenu-- Utilitie Scripts --on compactingStack-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｱ竕･ﾃｫﾂ ﾃ‡ﾂｻﾃｳeﾃｳﾂ ﾃ‡邃｢ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｫSﾃｫﾃε‡ﾃƒ10ﾃ…ﾃｬﾃ‡ï｣ｿﾃ‡ﾂｱﾃ‡ﾂｶﾃ‡ﾎｩﾃ‡ﾃﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｪﾃ†ﾃｳﾃｹﾃ‡竏妥‡ﾃˆif the freesize of this stack > 0.1 * the size of this stack thendoMenu "Compact Stack"end ifend compactingStackon setLine num-- ﾃｧsﾃｯ¥ﾃｩﾂｶﾃ‡ﾃεｧsﾃｪﾃｮﾃ‡ï｣ｿﾃｪ窶ｺﾃｭﾃ凝‡竏妥‡ﾃ暗穎ﾃ嘉ｬﾃ栄ﾃ嘉｢if num is not a number or num is empty or num < 1 thenbeepexit to HyperCardend iflock screenput empty into fld "Line"repeat with g = 1 to numsetCursorToBusyput g into line g of fld "Line"put g & "/" & numend repeatend setLinefunction ReadFile FileName-- ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ﾃ津‡竕暗②ﾃ‡ﾂｪﾃ‡ﾃεｬ窶｡ﾃｳeﾃ‡ï｣ｿﾃｯ窶佚‡竏妥嘉愿…[ﾃ蔚ﾃ…[ﾃｭﾃ凝｣`ﾃ､ﾃｷﾃｪﾃｮopen file Filenameread from file Filename until eofclose file Filenamereturn itend ReadFileon WriteFile text,FileName-- ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｧﾃ湘ｪﾂｨﾃ⑴ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺﾃ‡竏妥‡ﾃ暗嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢global FRMopen file FileNamewrite text to file FileNameclose file FileNameend WriteFile-- Checking Scripts --on checkErrors-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ 竅„ﾃｬﾃ†ﾃ‡窶ｦﾃｩ竏湘ｮsﾃ‡竏妥‡ﾃ暗‡竏†ﾃ…u竏ｫﾅ凪\ｺﾆ抵ｬﾃ…vﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡邃｢ﾃｩcﾃ‡ﾂ｡ﾃ‡ﾆ津‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｧﾃ‡ﾃε‡竕暗②-- ﾃ ﾃ催｢ﾃｻﾃ､mﾃｮFﾃ‡竏妥‡ﾃ暗ｯKﾃｳvﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃˆif there is a menu "竏ｫﾅ凪\ｺﾆ抵ｬ" thenbeepset cursor to watchreset menuBarend ifend checkErrorson checkVersions-- HyperCardﾃ‡竏†ﾃ鰻ﾃ厩ﾃ影ﾃ嘉„ﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘②ﾃｬﾃ†ﾃｧﾃ湘‡竕暗‡ﾂｴﾃ‡ﾃ暗､ﾂｬﾃ｣ﾂｴﾃ‡ﾂｩﾃｭ竕､ﾃ‡笳甘‡ﾃˆif "2.1" > the version thenbeepanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ陛②HyperCard2.1ﾃ ﾂｻﾃｧ~ﾃ‡竕暗‡ﾂｵﾃ‡ﾂｩﾃｬﾃ†ﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津⑩" with "ﾃｨIﾃｳﾏ\"go Homeend ifif "7" > the systemVersion thenbeepanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ陛②ﾃ鰻ﾃ厩ﾃ影ﾃ嘉„ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ㈽ﾃ ﾂｻﾃｧ~ﾃ‡竕暗‡ﾂｵﾃ‡ﾂｩﾃｬﾃ†ﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津⑩" with "ﾃｨIﾃｳﾏ\"go Homeend ifend checkVersionson checkMemory-- HyperCardﾃ‡ﾃεｩgﾃ‡ﾂｶﾃ‡ﾃ暗｣ﾃ崚嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡ï｣ｿﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃˆif the heapSpace < 200000 then -- ﾃ｣ﾃ崚嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡邃｢200Kﾃ頴ﾃ韻ﾃ曳ﾃ ﾂｻﾃ｢竏ｫﾃ‡ﾂｻﾃ‡ﾃbeepanswer "HyperCardﾃ‡ﾃε嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡邃｢ﾃｯsﾃｫﾂｴﾃ‡ﾂｨﾃ‡窶ｺﾃ‡竕暗‡竏妥③ﾃ‡ﾂｱﾃ‡ﾃε‡窶ｹﾃ‡窶ｹﾃｩgﾃ‡ﾂ｢ﾃｫﾂｱﾃ‡ﾃ佚‡ﾃ暗‡竏†ﾃ②ﾃ鰻ﾃ厩ﾃ影ﾃ嘉„ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡窶堙液ﾃ嘉､ﾃ…[ﾃ浦ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｱﾃ‡ﾃ暗‡ﾂｩﾃ‡窶｡ﾃ‡ﾂｵﾃ‡ﾃ催‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & ﾂｬ"ﾃ‡ﾂｫﾃ‡ﾂｧﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩ?" with "ﾃｫﾂｱﾃｧs","ﾃｨIﾃｳﾏ\"if it is "ﾃｨIﾃｳﾏ\" thenanswer "ﾃｨIﾃｳﾏ\ﾃ･窶榲②Finderﾃ‡竕ˆHyperCardﾃ‡ﾃε､ﾃ妥‡ﾃ凝ｬﾃｱﾃ‡ﾆ津嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡ï｣ｿ200Kﾃ頴ﾃ韻ﾃ曳ﾃ ﾂｻﾃｨ窶榲ｫﾃｹﾃ‡窶堙‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"set cursor to watchdoMenu "Quit HyperCard"elseanswer "ﾃｫﾂｺﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾃ暗‡ﾂｻﾃ‡ﾂｫﾃ‡ﾂｵﾃ‡ﾆ津②HyperCardﾃ‡ﾃε｣ﾃ崚嘉…ﾃ嘉‡ﾃ嘉､ﾃ‡ï｣ｿﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃｦﾃ‡ﾃ佚ｫﾃｹﾃ‡窶堙‡竏妥‡ﾃ甘‡ﾂｧﾃｬwﾃ‡ïｬづ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end ifend ifend checkMemory-- Etc Scripts --on setCursorToBusy-- ﾃ‡ﾂｱﾃ‡ﾃε穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ‡ﾃ陛…uﾃ･ﾂｩﾃ‡ﾂｩﾃ‡ﾃ佚…vﾃ‡ï｣ｿﾃｳﾂｫﾃ‡竕 ﾃ‡竏妥‡ﾃ暗‡ﾎｩﾃ‡ïｬづ‡ﾃｦﾃ‡ﾃ佚‡ﾃε‡窶｡ﾃ‡ﾃε‡竕暗‡竏‘global cursorNumberif cursorNumber is empty or cursorNumber is 4 then put 0 into cursorNumber else add 1 to cursorNumberset cursor to "50" & cursorNumberend setCursorToBusyon setname xglobal QuitCheck-- ﾃ…ucloseStackﾃ…vﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ‡ﾃεｧ竕暗･窶榲‡窶ｦﾃ･ﾆ津‡窶氾ｨoﾃ‡竕･ﾃ‡ﾃ催‡ﾃˆset name of this stack to "SimpleWrite II"put true into QuitCheckgo xend setnameon setTextFont theFont-- ﾃｧsﾃｯ¥ﾃｩﾂｶﾃ⑴ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑴ﾃ嘉…ﾃ韻ﾃ嘉ｬﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃε影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ï｣ｿﾃｪ窶ｺﾃｭﾃ凝‡竏妥‡ﾃ暗穎ﾃ嘉ｬﾃ栄ﾃ嘉｢lock screenset textFont of fld "Text" to theFontset textFont of fld "Ruler" to theFontset textFont of fld "Line" to theFontunlock screenend setTextFonton setTextSize theSize-- ﾃｧsﾃｯ¥ﾃｩﾂｶﾃ⑴ﾃ嘉｣ﾃ…[ﾃ嘉｢ﾃ…[ﾃ⑴ﾃ嘉…ﾃ韻ﾃ嘉ｬﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃε影ﾃ鵜ﾃ厩ﾃ曳ﾃ欝ﾃ韻ﾃ浦ﾃ‡ï｣ｿﾃｪ窶ｺﾃｭﾃ凝‡竏妥‡ﾃ暗穎ﾃ嘉ｬﾃ栄ﾃ嘉｢lock screenset textSize of fld "Text" to theSizeset textSize of fld "Ruler" to theSizeset textSize of fld "Line" to theSizeunlock screenend setTextSizeon returnInField-- ﾃ｢ﾂｸﾃｧsﾃｯ竏づｩﾃｶﾃ‡ﾃεｯ¥ﾃｩﾂｶﾃ‡窶ｦﾃ､ﾃｷﾃ‡竏妥‡ﾃ暗液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｳpﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢global FRMif FRM is true then put "ﾃ…ﾋœ" &return into the selection else pass returnInFieldend returnInField</script>
  17.     <background id="2741" file="background_2741.xml" name="" />
  18.     <card id="3011" file="card_3011.xml" marked="false" name="" owner="2741" />
  19. </stack>
  20.